SuperHack/SuperHack CD.bin/CODING/PASCAL/FPKPAS65.ZIP/SRCRTLDO.ZIP/SOURCE/RTL/DOS/MODES.INC

Text File | 1996-07-23 | 722 b | 30 lines

{****************************************************************************

                        FPKPascal Runtime-Library
                          Copyright (c) 1994 by
                             Florian Klämpfl

 ****************************************************************************}

    function getscreenmode : byte;

      begin
         asm
            movb 0xe0000449,%al
            leave
            ret
         end ['EAX'];
      end;

    procedure setscreenmode(mode : byte);

      begin
         asm
            movb 8(%ebp),%al
            xorb %ah,%ah
            pushl %ebp
            int $0x10
            popl %ebp
         end;
      end;